MODELO

Variables

Variables de estado

a = ángulo cuyo valor inicial es 0.5 radianes

at = derivada (ratio de cambio del valor del ángulo con respecto al tiempo), valor inicial = 0

t = tiempo, como variable independiente, cuyo valor inicial es = 0

dt = variación del tiempo. valor inicial = 0.01

Parametros

Aceleracion gravitacional g =9.8

Longitud de la cuerda L = 1

Ecuaciones diferenciales (EDO = Ecualcion diferencial ordinaria)

Variable independiente = t

La derivada del ángulo es da/dt =at

La derivada de at/dt = -g/L*Math.sin(a) // g= gravedad, L = longitud del péndulo

VISTA

Ventana

PanelDibujo (Minimo Y: -0.5, Maximo Y: 1.5, Cuadrado: true)

Forma ("Péndulo"Pos X: 0, Pos Y: L, Tamaño X: 0.05, Tamaño Y: 0.05)

Forma ("Peso", Color: rojo, Pos X:L*Math.sin(a)), PosY:L*(1-Math.cos(a)))

Segmento(PosX:0, PosY:L, Tamaño X:L*Math.sin(a), Tamaño Y:-L*Math.cos(a))

Panel (Pos: abajo)

BotonDosEstados("BotonPlayPause")

Boton("Reiniciar")

Deslizador(Variable:g, Minimo:1.0, Maximo:20.0)